# 数据准备
input <- mtcars[, c('wt', 'mpg')]

# 1. 打开 png 图形设备（指定输出文件）
png(file = "scatterplot.png")

# 2. 在设备中绘制图形
plot(x = input$wt, 
     y = input$mpg,
     xlab = "Weight",
     ylab = "Milage",
     xlim = c(2.5, 5),
     ylim = c(15, 30),              
     main = "Weight vs Milage"
)

# 3. 关闭图形设备（关键步骤！将图形写入文件）
dev.off()